home *** CD-ROM | disk | FTP | other *** search
/ isnet Internet / Isnet Internet CD.iso / prog / chat / 12 / 12.exe / SYSTEM / raw2.mrc < prev    next >
Encoding:
Text File  |  1999-04-09  |  3.7 KB  |  90 lines
  1. raw 311:* {
  2.   if (%rawcode.311 == off) { unset %rawcode.311 | return }
  3.   if ($tokmatch(%whois,$2,44)) {
  4.     if ($form(whois,top)) whecho $readini %formats whois top
  5.     else whecho $lfix(16,_______________) $+ $hc(_______________) $+ $sc(_______________)
  6.     if ($form(whois,address)) whecho $readini %formats whois address
  7.     else whecho $pc(|) $b($sc($2)) ( $+ $3 $+ $hc(@) $+  $+ $4 $+ )
  8.     if ($form(whois,name)) whecho $readini %formats whois name
  9.     else whecho $sc(|) $hc(name) $sc(:) $6-
  10.     halt
  11.   }
  12.   elseif ($tokmatch(%cwhois,$2,44)) {
  13.     if ($form(cwhois,top)) msg $active $readini %formats cwhois top
  14.     else msg $active $lfix(46,_____________________________________________)
  15.     if ($form(cwhois,address)) msg $active $readini %formats cwhois address
  16.     else msg $active $vl $b($2) ( $+ $3 $+ @ $+ $4 $+ )
  17.     if ($form(cwhois,name)) msg $active $readini %formats cwhois name
  18.     else msg $active $vl name : $6-
  19.     halt
  20.   }
  21. }
  22. raw 314:* {
  23.   if (%rawcode.314 == off) { unset %rawcode.314 | return }
  24.   if ($findtok(%whowas,$2,1,44)) {
  25.     if ($form(whowas,top)) iiecho $readini %formats whowas top
  26.     else iiecho $lfix(16,_______________) $+ $hc(_______________) $+ $sc(_______________)
  27.     if ($form(whowas,address)) iiecho $readini %formats whowas address
  28.     else iiecho $vl $b($sc($2)) ( $+ $3 $+  $+ $hc(@) $+  $+ $4 $+ )
  29.     if ($form(whowas,name)) iiecho $readini %formats whowas name
  30.     else iiecho $sc(|) $hc(name) $sc(:) $6-
  31.     halt
  32.   }
  33.   elseif ($findtok(%cwhowas,$2,1,44)) {
  34.     if ($form(cwhowas,top)) msg $active $readini %formats cwhowas top
  35.     else msg $active $lfix(46,_____________________________________________)
  36.     if ($form(cwhowas,address)) msg $active $readini %formats cwhowas address
  37.     else msg $active $vl $b($2) ( $+ $3 $+ @ $+ $4 $+ )
  38.     if ($form(cwhowas,name)) msg $active $readini %formats cwhowas name
  39.     else msg $active $vl name : $6-
  40.     halt
  41.   }
  42. }
  43. raw 315:* {
  44.   if (%rawcode.315 == off) { unset %rawcode.315 | return }
  45.   if (%cstats == on) {
  46.     set %cthops %hop1 $+ . $+ %hop4
  47.     echo $2  
  48.     echo $2 . $+ $str(-,51) $+ .
  49.     echo $2 $vl $center(49,Channel Stats for [ $2 ] ) $vl
  50.     echo $2 $vl $+ $str(-,51) $+ $vl
  51.     echo $2 $vl $lfix(5,ops[) $+ $center(3,$hc($opnick($2,0))) $+ ] voice[ $+ $center(3,$hc($vnick($2,0))) $+ ] none[ $+ $center(3,$hc($rnick($2,0))) $+ ] total[ $+ $center(3,$hc($nick($2,0))) $+ ] $lfix(9,$vl)
  52.     echo $2 $vl $lfix(5,away[) $+ $center(3,$hc(%naway)) $+ ] ircop[ $+ $center(3,$hc(%niops)) $+ ] hops[ $+ $center(3,$hc($int(%cthops))) $+ ] from $center(13,$sc($left($server,13))) $vl
  53.     echo $2 ' $+ $str(-,51) $+ '
  54.     echo $2  
  55.     unset %cstats %hop* %cthops %niops %naway %ncls %cladd %cnum %chops
  56.     halt
  57.   }
  58.   elseif (%lircops == on) {
  59.     unset %lircops
  60.     if (%cn) aline @IrcOps ' $+ $str(-,45) $+ '
  61.     else {
  62.       if ($form(errors,no-opers)) iecho $readini %formats errors no-opers
  63.       else iecho No ircops were found on $hc($2) $+ . ( $+ $sc($nick($2,0)) users)
  64.     }
  65.     unset %cn
  66.     halt
  67.   }
  68.   elseif (%spoofchk) {
  69.     if (%spoofchk.nick) unset %spoofchk
  70.     else {
  71.       iecho Could not check %spoofchk.nick for a spoofed address (no such nickname)
  72.       unset %spoofchk*
  73.     }
  74.     halt
  75.   }
  76.   elseif (%spoofchk.nick) halt
  77.   elseif ($findtok(%joinedchans,$2,1,44)) {
  78.     set %joinedchans $remtok(%joinedchans,$2,1,44)
  79.     if ((%botgetops == on) && ($me ison $2)) get.bot.ops $2
  80.     if ((%colnick == on) && ($me ison $2)) colnick $2
  81.     halt
  82.   }
  83.   elseif (%whochan == on) {
  84.     if ($form(who)) iiecho $readini %formats who end
  85.     else iiecho 'end of $hc($2) /WHO LIST. $str(29,-)
  86.     unset %whochan
  87.     halt
  88.   }
  89. }
  90.